home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 5 / inter@ivo 1996-06.iso / cybint5 / bin / montracd.dxr / 00095.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  581 b   |  30 lines
  1. on exitFrame
  2.   global track, init, butt
  3.   set change to 0
  4.   if butt <> 0 then
  5.     if track = 1 then
  6.       sound playFile 2, "..\som\montra14.wav"
  7.       onVis(3)
  8.       InVis(4, 5)
  9.       set butt to 0
  10.     end if
  11.   end if
  12.   if (init = 1) and (soundBusy(2) = 0) then
  13.     set track to 1
  14.     set change to 1
  15.     sound playFile 2, "..\som\montra14.wav"
  16.   end if
  17.   if checkVis(2) = 1 then
  18.     InVis(2)
  19.   else
  20.     onVis(2)
  21.   end if
  22.   if (soundBusy(2) = 0) and (init = 0) then
  23.     sound playFile 2, "..\som\montra14.wav"
  24.     onVis(3)
  25.     set init to 1
  26.   end if
  27.   put track
  28.   Loopframe()
  29. end
  30.